PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


PPPPPPPP 
PPPPPPPP 
P PP 


PPPPPPPP 
PPPPPPPP 


SSSSSS 


SSSSSSSS 
SSSSSSSS 


————__———_- 


AAAAAA 
AAAAAA 
AA 
AA AA 
Ab Aa 
AA AA 
AA AA 
AA AA 
AAAAAAAAAA 
AAAAAAAAAA 
AB AA 
Aa AA 
AA Ab 
AA AR 
DDDDDDDD 
DDDDDDDD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DD DD 
DDDDDDDD 
DODDDDDD 


SSSSSSSS -FFFFFFFFFF CccCCCCCC ~=BBBBBBBB 
SSSSSSSS_  FFFFFFFFFF CccccccC 1 BBBBBBBB 
SS FF cc BB BB 
SS FF CC BB BB 
SS FF cc BB BB 
SS FF cc BB BB 
SSSSSS FFFFFFFF cc BBBBBBBB 
SSSSSS FFFFFFFF cc BBBBBBBB 

SS FF cc BB BB 
os «FF cc BB BB 
SS «FF cc BB BB 
SS FF cc BB BB 

SSSSSSSS FF CCCCCCCC BBBBBBBB 

SSSSSSSS FF CCCCCCCC BBBBBBBB 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LL 

LLLLLLLLLL 

LLLLLLLLLL 


PA 


9 
PASFCB.SDL;1 16-SEP-1984 16:43:18.94 Page 1 


MODULE SFCBDEF IDENT ‘'1-006''; { Pascal File Control Block (FCB$) field definitions 
{ Five: PASFCB.SDL, Edit: S$BL1006 


Cee eee eee REE AREA AEE REE REAR E EEA TATE 


{ 

{* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

{* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
{* ALL RIGHTS RESERVED. 


® 
® 
* 
* 
{* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
{+ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
{* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
{* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
{* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
{* TRANSFERRED. : 
® 
{* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
{* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
{* CORPORATION. . 
* 
® 
® 
* 
* 
® 


* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR _ RELIABILITY OF ITS 
{* SOFTWARE ON EQUIPMENT WHICH 1S NOT SUPPLIED BY DIGITAL. 


CRP ee RARER EEE ERA RARE ARERR ARERR EEE AAEATE ARETE 


Author: Steven B. Lionel, 1-April-1981 


1-001 - ht borg SBL 1~April- -1981 

1-002 - ace *’.’’ with ‘':"’ for pet, V1.5. SBL 16-July-1982 
1-003 - Add FCBSV RND. oi 29 "yearn 

1-004 = Replace FUB$V_RND with FCBSV_FOD. SBL e9eguly-1982 
1-005 = Add FCBSV_INITIATE_PROMPT. SBL 15-Dec-1982 

1-006 = Use MARKER. SBL 10-Feb-1983 


oa 


The Pascal File Control Block (FCB$) is dynamically allocated by the 
Run-Time i forerg and contains internal information posceeery to the 
RTL to control file processing. The os Loceses block actually contains 
the FCB followed by the RMS RAB, FAB and NAM blocks. The pointer 

to this storage is identified as FCB lente the RTL and points to 

the RAB. The FCB is at negative offsets from this position. 


The leyout is as follows: 


teow ar anno eee + 
' FCB H 
teeecereces- + <== PFVSA_FCB (in Pascal File Variable) 
: RAB H 
¢ ewe serena ece + 
: FAB : 
Bee ee eS + 
H NAM ‘ 
fee eco eeece + 


AAA AASAAAAASAAAAAAA AAAS AAADAG 


eee EOE EEE EE EO _ oe 


po Oe — 


| PASFCB.SDL;1 


{- 


vena > FCB STRUCT STRUCTURE PREFIX 
QUEUE _FLINK LONGWORD UNSIGNED; ¢ 
QUEUE -BLINK LONGWORD UNSIGNED; 


SPARE_1 LONGWOR : 
RECORD_NUMBER the D; 
KEY_TYPES A 


STATUS LONGWORD 
COMPONENT LONGWORD UNSIGNED; 


DRESS; 
CINELINIT LONGWORD UNSIGNED; 
RECORD_BEG ADDRESS: 


DDRESS: 
RECORD-LEN LONGWORD UNSIGNED: 
ATTRIB-OVERLAP 
ATTRIB WORD UNS1 ENED; 
ATTRIB BITS STRUCTURE; 
TERT BITFIELD; 
BINARY BITFIELD; 
"VARYING BITFIELD; 


AAA AAAAAAAAAA APVAAAAAAAAAGY 


9 
16-SEP-1984 16:43:18.9 Page 2 


FCBS MARKER FCBS ORIGIN FCB; 
Forward Link to queue of all open files 
Backward Link to queue of all open files 


Current record oe for textfiles 
Vector of key types 

Number of keys defined 

Status of last operation for STATUS() 
Component number for direct access 
Address of PFV 

Linelimit of thts file 

Address of PFD 

Beginning of record buffer 

Current position in record buffer 
Last+1 of record buffer 

Length of record buffer 


Attributes of this file. This word is to be 
the same layout as PFDSW_ ATTRIB. 

he file is of type TEXT: 
the file is of a non-varying binary ‘yes . 
The file is of a varying stay type. The 
allocated buffer is two ‘tin piager than the 
maximum record size (PFD$ 
The file variable is declared GRITEONLY. 
The file variable is declared READONLY 
The file is external; i.e. it has been declared 
in the PROGRAM or MODULE “sh 
The file is statically allocated. 
The file is heap allocated via NEW. 


ntrol bytes for prompting 
TA No control 


Nothing before, CR after 


NOREAD BITFIELD; 
NOWRITE BITFIELD; 
EXTERN BITFIELD; 
STATIC BITFIELD; 
HEAP BITFIELD; 
$f Ll_1 BITFIELD LENGTH 8 FILL; 
END ATTRIB-BITS; 

END eerie OVERLAP; 

PROMPT_CC QORD UNSIGN { Ca arriag 
CONSTANT CC_NULL ME ALS %X0000 PREF I 
CONSTANT CC"LFNL EQUALS %x0001 PREFIX 

REF IX 


T CC pei cr EQUALS %x8D01 P 


CONSTA 
OPTIONS1 OVERLAP U NION; 
OPTIONS! LONGUORD D UNS 1GNED: 


oP THON NS1_BITS STRUCTUR 
QUENTIAL BITFIELD: {¢ 
BERECT BITFIELD; { 
KEYED BITFIELD; { k 
READ_ONLY BITFIELD; { F 
OLO_FILE BITFIELD; { 
SAVE BITFIELD; { 
DELETE BITFIELD; { 
PRINT BITFIELD; { 
SUBMIT BITFIELD; { 
USER_ACTION BITFIELD; {¢ 
LAZY BITFIELD; { 
INSPECTION BITFIELD: { 
GENERATION BITFIELD: { 


rc 
| 


co 
FCB { N 

ce TAG $K; t LF before, nothing after 
FCB { LF before, CR after 


Sequential access seec ified 
Direct access spec ed 

eeyee access saccities 

e was agenee READONLY 

le oc reaty exists 

le is to be saved after close 

ile is to be deleted after close 

le is to be printed after close 

le is to be submitted as a batch job after close 
USER_ACTION routine was specified 

zy~lOokahead is_in progress 

le is in INSPECTION mode 

ile is in GENERATION mode 
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| EOF BITF 


IELD; File is at EOF 
PROMPT ENABLE BITFIELD; { Prompting is enabled 
PARTIAC_LINE BITFIELD; Partial Line has been written 
LOCATE BITFIELD; LOCATE was Last operatio n 
DEALLOC BITFIELD; Deallocation of this FCB requested 
DYNAMIC_RSN BITFIELD; RSN in NAM block is dynamic 
DYNAMIC_UBF BITFIELD; UBF in RAB block is ty 
STRING BITFIELD; rile. is a string. (REA Write 
ON_QUEVE BITFIELD; { FCB is on 2 
INDEXED BITFIELD; { File is indexed Ae) 
PROMPT_ALWAYS BITFIELD; { Always write partial records 
FOD BITFIELD; { Device is file oriented (DEV$V_FOD) 
pea tg PROMPT BITFIELD; ¢ er panes on this file starts prompt 
$$fi “BITEIELD LENGTH 6 F] 
END OPT TIONS’ 6 S; 

END SP TIONS OOVERLAP; 

CONSTANT BLN EQUALS :; { Length of FCB 

FCB BYTE TAG R; { Field to reference entire structure 


END FCB_STRUCT; 
END_MODULE SFCBDEF; 


293 AH-BT13A-SE—s_~s- : PMENT CORPORATION 
Lee oF, A 


VAX/VMS V4.0 Be “AND PROPRIETARY 


